home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.0 / Video Toaster v4.0.iso / arexx / editor / flylaps.rexx next >
OS/2 REXX Batch file  |  1995-03-07  |  2KB  |  83 lines
  1. /* FlyLapse.rexx -- Record frames at intervals of 1 to 60 mins */
  2. /* By Arnie Cachelin © 1992 NewTek Inc. */
  3. /* 4.0'ised by Bob Caron, Flyer versioned by Arnie again    */
  4.  
  5. OPTIONS RESULTS
  6. TOASTERLIB="ToasterARexx.port"
  7. REXXLIB = "rexxsupport.library"
  8. call remlib('ToasterARexx.port')
  9. call remlib('PROJECT_REXX_PORT')
  10.  
  11. call addlib('PROJECT_REXX_PORT' , 0)
  12.  
  13. call set_view(2)
  14. if req_tell("Flyer TimeLapse 2.0") = 0 then call quit
  15.  
  16. rx startfilereq("Save Clip Where?","FlyerA:","TimeLapse")
  17.  
  18. exit=1
  19. do while exit=1
  20.   name=queryfilereq()
  21.   if name=0 then call quit
  22.   if name~="" then exit=0
  23.   address command "c:wait 1"
  24.   say name
  25. end
  26.  
  27. delay=0
  28. do while(delay<1)
  29.    delay=req_number("Delay In Seconds",'5')
  30.    end
  31. tdelay=delay
  32.  
  33. rdelay=0
  34. do while(rdelay<1)
  35.    rdelay=req_number("Record Time In Seconds",'5')
  36.    end
  37. trdelay=rdelay
  38.  
  39. count=0
  40. do while(count<1)
  41.    count=req_number("Number Of Colorframes To Grab",100)
  42.    if count=0 then call quit
  43.    end
  44.  
  45. if delay="" then delay = 1
  46. if delay<1 then delay = 1
  47. if delay>60 then delay = 60
  48. if rdelay="" then rdelay = 1
  49. if rdelay<1 then rdelay = 1
  50. if rdelay>60 then rdelay = 60
  51. if count="" then count=10
  52. if count>1000 then count=1000
  53. if name="" then name=left(date(),6)
  54. delay=delay*30       /* delay in minutes x 60s/min x 30f/s = delay in frames */
  55. rdelay=rdelay*30       /* delay in minutes x 60s/min x 30f/s = delay in frames */
  56.  
  57. if req_tell("Still want to continue?")=0 then call quit
  58.  
  59. IF ~ADDLIB(TOASTERLIB , 0) THEN x=Bummer(" Please start your Video Toaster!")
  60. call RECORDCLIP(TimeLapse)
  61. call RECORDPAUSE(1)
  62. do f=0 to count
  63.   say f
  64.   call RECORDPAUSE(0)
  65.   address command "c:wait "||trdelay
  66.   call RECORDPAUSE(1)
  67.   address command "c:wait "||tdelay
  68.   end
  69. call RECORDSTOP()
  70. call MAKEICON(TimeLapse)
  71.  
  72. call req_tell("All done!")
  73.  
  74. quit
  75. exit
  76.  
  77.  
  78. quit: PROCEDURE
  79.    call req_tell("Canceled!")
  80.    call remlib('ToasterARexx.port')
  81.    call remlib('PROJECT_REXX_PORT')
  82.    exit
  83.